On Error Resume Next
Dim a,b,c ,d,e
Do 
c="."
set a=getobject("winmgmts:\\"& c &"\root\cimv2")
set b=a.execquery("select * from win32_process where name='LolClient.exe'")
set d=a.execquery("select * from win32_process where name='Client.exe'")
set e=a.execquery("select * from win32_process where name='lol.launcher_tencent.exe'")
set f=a.execquery("select * from win32_process where name='Hearthstone.exe'")
set g=a.execquery("select * from win32_process where name='KartRider.exe'")
for each i in e 
i.terminate()
next
for each i in b
i.terminate()
next
for each i in d 
i.terminate()
next
for each i in f 
i.terminate()
next
for each i in g 
i.terminate()
next
WScript.sleep 500
Loop